home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE23 / PZAZZDEM / PZAZZDEM.ZIP / PZDEMO / PZDSHADE.PAS < prev    next >
Pascal/Delphi Source File  |  1996-11-19  |  2KB  |  68 lines
  1. unit PZDShade;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   Forms, Dialogs, ExtCtrls, PZBPanel, PZShaded, StdCtrls, PZLabel, PZSpButt;
  8.  
  9. type
  10.   TPZShadedForm = class(TForm)
  11.     HeaderPanel: TPZBitmapPanel;
  12.     PZShaded1: TPZShaded;
  13.     DescrPanel: TPZBitmapPanel;
  14.     PZLabel4: TPZLabel;
  15.     ResultsPanel: TPZBitmapPanel;
  16.     PZLabel5: TPZLabel;
  17.     PZLabel2: TPZLabel;
  18.     OutputPanel1: TPZBitmapPanel;
  19.     PZShaded2: TPZShaded;
  20.     OutputPanel3: TPZBitmapPanel;
  21.     PZShaded3: TPZShaded;
  22.     PZShaded4: TPZShaded;
  23.     OutputPanel2: TPZBitmapPanel;
  24.     OutputPanel4: TPZBitmapPanel;
  25.     procedure FormClose(Sender: TObject; var Action: TCloseAction);
  26.     procedure FormCreate(Sender: TObject);
  27.     procedure FormDeactivate(Sender: TObject);
  28.   private
  29.     { Private declarations }
  30.   public
  31.     { Public declarations }
  32.   end;
  33.  
  34. var
  35.   PZShadedForm: TPZShadedForm;
  36.  
  37. implementation
  38.  
  39. Uses PZDMain;
  40.  
  41. {$R *.DFM}
  42.  
  43. procedure TPZShadedForm.FormCreate(Sender: TObject);
  44.  
  45. Begin
  46.   SetBounds(10,10,MainForm.ClientWidth-20,MainForm.ClientHeight-MainForm.MainPanel.Height-20);
  47.   HeaderPanel.Background.LoadBitmap('PZD_STONE');
  48.   DescrPanel.Background.LoadBitmap('PZD_STONE');
  49.   ResultsPanel.Background.LoadBitmap('PZD_STONE');
  50.   OutputPanel1.Background.LoadBitmap('PZD_STONE');
  51.   OutputPanel2.Background.LoadBitmap('PZD_STONE');
  52.   OutputPanel3.Background.LoadBitmap('PZD_STONE');
  53.   OutputPanel4.Background.LoadBitmap('PZD_STONE');
  54. End;
  55.  
  56. procedure TPZShadedForm.FormClose(Sender: TObject;  var Action: TCloseAction);
  57.  
  58. Begin
  59.   Action:=caFree;
  60. End;
  61.  
  62. procedure TPZShadedForm.FormDeactivate(Sender: TObject);
  63. begin
  64.   Close;
  65. end;
  66.  
  67. end.
  68.